option explicit	
Sub Main
dim x as long, n as long, m as long, zbir as long
x = inputbox("Unesi dvocifreni broj")
n = x\10
m = x mod 10
zbir = n + m
msgbox(zbir)
End Sub